home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / demo.show pic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  76 lines
  1. 100 if m=0 then m=1:load "show pic.52480",8,1
  2. 110 rem ******************************
  3. 120 rem *                            *
  4. 130 rem * basic demo zur             *
  5. 140 rem * "show pic.52480" - routine *
  6. 150 rem *                            *
  7. 160 rem ******************************
  8. 170 rem
  9. 180 rem namen eingeben
  10. 190 rem
  11. 200 print:print:print "name des bildes"
  12. 210 print "(oder $ fuer directory)"
  13. 220 a$="":input a$:if a$="$" then 450
  14. 230 rem
  15. 240 rem bild laden & zeigen
  16. 250 rem
  17. 260 sys 52480,8,a$,1
  18. 270 rem
  19. 280 rem tastendruck abwarten
  20. 290 rem
  21. 300 get a$:ifa$="" then 300
  22. 310 rem
  23. 320 rem textmodus einschalten
  24. 330 rem
  25. 340 sys 52480,8,"",0
  26. 350 print"wollen sie das bild noch einmal sehen"
  27. 360 input a$:if left$(a$,1)<>"j" then 200
  28. 370 rem
  29. 380 rem bild noch einmal zeigen
  30. 390 rem
  31. 400 sys 52480,8,"",1
  32. 410 goto 300
  33. 420 rem
  34. 430 rem directory zeigen
  35. 440 rem
  36. 450 open 1,8,0,"$":poke781,1:sys65478:get a$,a$:z$=chr$(0)
  37. 460 get a$,a$,l$,h$:if st then sys 65484:close1:goto 200
  38. 465 printasc(l$+z$)+256*asc(h$+z$);
  39. 466 get a$,b$,c$,d$,e$,f$,g$,h$,i$,j$,k$,l$,m$,n$,o$,p$,q$,r$,s$,t$,u$,v$,w$,x$
  40. 467 print a$b$c$d$e$f$g$h$i$j$k$l$m$n$o$p$q$r$s$t$u$v$w$x$;
  41. 470 get a$,b$:if a$ then print a$b$;:goto 470
  42. 480 printa$:goto 460
  43. 490 close1:goto 200
  44. 500 rem
  45. 510 rem syntax des "sys-befehls" :
  46. 520 rem
  47. 530 rem sys 52480,geraet,"name",modus
  48. 540 rem
  49. 550 rem geraet : geraetenummer
  50. 560 rem          1=datas. 8=floppy ...
  51. 570 rem
  52. 580 rem "name" : programmname
  53. 590 rem          z.b. "[b]test"
  54. 600 rem          wird als name nur ""
  55. 610 rem          (leerstring) angegeben
  56. 620 rem          wird kein neues bild
  57. 630 rem          geladen (um nur in den
  58. 640 rem          text-/grafikmodus um-
  59. 650 rem          zuschalten
  60. 660 rem
  61. 670 rem modus  : zahl von 0 bis 2
  62. 680 rem          0=textmod. einschalten
  63. 690 rem          1=grafik zeigen
  64. 700 rem          2=alten modus beibe-
  65. 710 rem            halten (nur sinnvoll
  66. 720 rem            wenn auch ein bild
  67. 730 rem            geladen wird,da
  68. 740 rem            sonst gar nichts
  69. 750 rem            passiert)
  70. 760 rem
  71. 770 rem es ist darauf zu achten, dass
  72. 780 rem das bild auch wirklich mit
  73. 790 rem "amica paint" gespeichert
  74. 800 rem wurde, sonst ist ein absturz
  75. 810 rem des rechners moeglich
  76.